home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Hyper
/
G
/
GEst.cpt
/
GEst 2
/
card_4447.txt
< prev
next >
Wrap
Text File
|
1989-05-06
|
3KB
|
117 lines
-- card: 4447 from stack: in
-- bmap block id: 2331
-- flags: 0000
-- background id: 2722
-- name: c
----- HyperTalk script -----
on mouseUp
global dollarRate,baudRate
if the short name of the target contains "3" then
answer "Please select a baud rate only."
set hilite of card button 3 to false
else
if short name of the target contains "4" then
answer "Please select a baud rate only."
set hilite of card button 4 to false
else
if the short name of the target contains "1" then
set hilite of card button 1 to true
set hilite of card button 2 to false
set hilite of card button 3 to true
set hilite of card button 4 to false
put .1 into dollarRate
put 1200 into baudRate
else
if the short name of the target contains "2" then
set hilite of card button 1 to false
set hilite of card button 2 to true
set hilite of card button 3 to false
set hilite of card button 4 to true
put .16666 into dollarRate
put 2400 into baudRate
end if
end if
end if
end if
end mouseUp
-- part 1 (button)
-- low flags: 00
-- high flags: 6006
-- rect: left=195 top=77 right=94 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button 1
-- part 2 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=195 top=99 right=116 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button 2
-- part 3 (button)
-- low flags: 00
-- high flags: 6006
-- rect: left=194 top=136 right=153 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button 3
-- part 4 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=194 top=160 right=177 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button 4
-- part 10 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=429 top=274 right=326 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Card
----- HyperTalk script -----
on mouseUp
visual effect wipe right slowly
pop card
end mouseUp